- The motivation
- Describe the population
- Review the methodology and evaluation
- Implementation with Shiny R Markdown
June 29, 2016
Where did this project start?
fit <- randomForest(Murder ~ Age + White + Male + Total_Pop +
Black_Pop + Prop_Black + Income +
Zip_Present + Gang + ViolentCase,
data = train,
importance = TRUE,
ntree = 1500)
fit2 <- randomForest(Murder ~ Age + Total_Pop + Black_Pop +
Prop_Black + Income + Zip_Present +
ViolentCase,
data = train,
importance = TRUE,
ntree = 1500,
mtry = 2,
cutoff = c(0.65, 0.30),
sampsize = c("0" = 100, "1" = 34),
strata = as.factor(train$Murder),
keep.inbag = TRUE,
na.action = na.roughfix)
2,300 early releases from probation